home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act6b / 00443.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  970 b   |  33 lines
  1. on exitFrame
  2.   startTimer()
  3.   puppetSound("Various")
  4.   updateStage()
  5.   repeat while not (the soundBusy of 1)
  6.     updateStage()
  7.   end repeat
  8.   set corrupt to [:]
  9.   addProp(corrupt, 3, the locH of sprite 3)
  10.   addProp(corrupt, 35, the locH of sprite 35)
  11.   addProp(corrupt, 34, the locH of sprite 34)
  12.   addProp(corrupt, 38, the locH of sprite 38)
  13.   addProp(corrupt, 1, the locH of sprite 1)
  14.   repeat with xxx = 41 to 46
  15.     addProp(corrupt, xxx, the locH of sprite xxx)
  16.   end repeat
  17.   repeat with xxx = 4 to 9
  18.     addProp(corrupt, xxx, the locH of sprite xxx)
  19.   end repeat
  20.   repeat while the soundBusy of 1
  21.     set tangy to random(9) - 5
  22.     repeat with sss = 1 to count(corrupt)
  23.       set the locH of sprite getPropAt(corrupt, sss) to getAt(corrupt, sss) + tangy
  24.     end repeat
  25.     updateStage()
  26.   end repeat
  27.   repeat with sss = 1 to count(corrupt)
  28.     set the locH of sprite getPropAt(corrupt, sss) to getAt(corrupt, sss)
  29.   end repeat
  30.   updateStage()
  31.   puppetSound(0)
  32. end
  33.